unit Class_K4;

interface

uses
  SysUtils, Classes, DataEngine;

type
  TK4 = class(TBaseClass)
  public
    KHBH: string;
    KHNAME: string;
    JC: string;
    KHGROUP: string;
  public 
    function GetFullName: string;

    destructor Destroy; override;
  end;

implementation

{ TK4 }

destructor TK4.Destroy;
begin

  inherited;
end;

function TK4.GetFullName: string;
begin
  Result := '[' + KHBH + ']' + KHNAME;
end;

end.
